Computer Life: SuperPac/SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO/pc/demos/nile/credits.dir/00021.ls

Text File | 1995-05-04 | 663 b | 32 lines

on startMovie
  set the keyDownScript to "VolumeKeyPressed the key"
end

on VolumeKeyPressed QtyChar
  filterQuit(QtyChar)
  set QtyCharCode to charToNum(QtyChar)
  if (QtyCharCode >= 48) and (QtyCharCode <= 57) then
    set QtyNum to value(QtyChar)
    if QtyNum > 7 then
      set QtyNum to 7
    end if
    set the soundLevel to QtyNum
  end if
end

on filterQuit keyPressed
  global onIBM
  if onIBM then
    if the optionDown and (charToNum(keyPressed) = 27) then
      quit()
    end if
    if the commandDown and (the keyCode = 12) then
      quit()
    end if
  else
    if the commandDown and (the keyCode = 12) then
      quit()
    end if
  end if
end